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Abstract 


A  computer  program,  written  in  FORTRAN  predicts  the  maxi- 
mum yield  of  cuttings  for  softwood  cut-up  and  edge-  and  end- 
gluing  operation.  The  program  calculates  cutting  recovery  (given 
cutting  width  and  length  constraints  and  defect  locations  on  the 
board),  and  locates  ripping  saw  kerfs. 

Keywords:   Programming  (computers),  softwood  cut-up,  end  and 
edge  gluing,  dimension  stock. 
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Predicting  Softwood  Cutting  Yield  by  Computer 


Bernard  J.   Erickson  and  Donald  C.  Markstrom 


Program  CUTUP  in  Brief 

Currently,  major  emphasis  in  improving 
wood  conversion  efficiency  is  concentrated  in 
three  areas:  (1)  improving  yields  from  the  re- 
source, (2)  reducing  waste  and  residues,  and 
(3)  reducing  processing  errors  resulting  from 
repetitive  human  decisions.  The  program  de- 
scribed here  can  contribute  to  greater  efficiency 
in  all  of  these  areas.  Automated  defect-sensing 
methods  now  being  developed  offer  the  possi- 
bility of  feeding  continuous  defect  data  to  a 
computer  as  input  to  the  type  of  optimizing 
program  described,  thereby  automating  the 
whole  cut-up  decision  process. 

A  computer  program  CUTUP  to  predict  the 
maximum  yield  of  cuttings  obtainable  from  soft- 
wood lumber  is  described  in  this  paper.  The 
program  calculates  cutting  recovery  (given 
cutting  width  and  length  constraints  and  defect 
location  on  the  board),  and  will  predict  the 
maximum  yield  of  cuttings  of  a  specified  grade, 
for  a  softwood  cut-up  and  edge-  and  end-gluing 
operation. 

The  conventional  practice  in  softwood  cut- 
up  operations  is  to  first  rip  the  board  into 
prescribed  cutting  widths  in  a  manner  to  max- 
imize recovery,  and  then  crosscut  the  full-board- 
length  cuttings  to  remove  defects.  The  CUTUP 
computer  program  simulates  this  practice 
systematically,  (1)  locating  full-board-length 
cuttings  of  specified  widths  and  sequence  to 
maximize  recovery,  (2)  crosscutting  to  remove 
defects,  and  (3)  measuring  the  areas  of  all  cut- 
tings of  a  specified  length  or  longer.  The 
recovered  area  excludes  (1)  the  area  of  defects, 

(2)  areas  between  defects,  or  between  a  defect 
and  the  end  of  the  board,  where  the  recoverable 
length  is  less  than  the  specified  minimum,  and 

(3)  areas  of  all  saw  kerfs.  The  maximum  number 
of  rips  is  also  specified  in  the  program. 

This  program  differs  fundamentally  from 
computer  programs  developed  to  predict  yield 
of  cuttings  from  hardwood  cut-stock  operations, 
where  the  usual  sawing  practice  is  to  alternately 
crosscut  and  rip.2  3  Hardwood  programs  sys- 
tematically scan  the  board  to  locate  and  measure 

2Englerth,  G.  H.,  and  D.E.  Dunmire.  Programing  for 
lumber  yield.  For.  Prod.  J.  16(9):  67-69.  1966. 

3  Wodzinski,  Claudia,  and  Eldona  Hahm.  A  computer 
program  to  determine  yields  of  lumber.  U.S.  Dep.  Agric., 
For.  Prod.  Lab.,  33  p.  Madison,  Wis.  1966. 


cuttings  of  prescribed  width  and  length  between 
defect  areas,  with  the  largest  specified  cutting 
considered  first.  The  cuttings  can  then  be  re- 
moved from  the  board  by  starting  with  either  a 
crosscut  or  rip,  and  alternating  back  and  forth, 
taking  as  many  cuts  as  possible  during  each 
operation.  Softwood  and  hardwood  programs 
are  similar,  however,  in  that  the  same  format  is 
used  to  record  board  and  defect  data  on  the  in- 
put cards. 

Characterizing  Boards  and  Defects 

Each  board  is  considered  to  have  X  and  Y 
axes,  with  its  lower  left  corner  at  (0,0),  its 
length  along  the  X  axis,  and  its  width  along 
the  Y  axis.  The  board  size  is  described  and  de- 
fects are  located  by  1/4-inch  coordinates,  which 
designate  the  lower  left  and  upper  right  corners 
of  the  areas  (fig.  1).  All  measurements  are  ex- 
pressed in  1/4-inch  units,  which  can  be  used 
directly  in  calculating  recovery  of  cut-up  stock. 

Data  cards  describing  the  boards  and  defects 
are  punched  in  the  following  manner:  The  first 
card  lists  the  board  grade  code  in  columns  6 
and  7,  the  board  number  in  columns  32  through 
36,  and  total  number  of  defects  in  columns  69 
through  72.  The  second  card  gives  the  coordi- 
nates of  the  board,  and  each  of  the  remaining 
cards  gives  the  coordinates  of  a  single  defect. 
The  lower  left  Y  coordinates  of  the  board  and 
the  defects  are  punched  in  columns  1  through 
3  and  the  X  coordinates  in  columns  5  through 
7.  The  upper  right  Y  coordinates  are  punched 
in  columns  13  through  15  and  the  X  coordinates 
in  columns  17  through  19.  The  sequence  of  the 
defect  cards  in  the  deck  must  be  the  same  as 
that  of  the  defects,  from  left  to  right  across  the 
X  axis  of  the  board. 

The  total  number  of  cards  for  each  board 
equals  the  number  of  defects  plus  two. 

The  program  was  run  with  a  sample  of  600 
boards  selected  from  surfaced  yard  lumber  at 
the  Duke  City  Lumber  Company.  One  hundred 
boards  were  randomly  selected  in  each  of  six 
categories:  grades  3  Common  and  4  Common, 
in  nominal  widths  of  4,  8,  and  12  inches. 

The  boards  were  examined  and  defects  out- 
lined. As  a  convenience,  the  boards  were  then 
photographed  with  color  transparency  film.  The 
slides  were  projected  at  one-half  scale  on  rear- 
projection  translucent  glass  to  facilitate  meas- 
uring board  and  defect  data. 
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Board  grade: 
width: 
length: 
coordinates : 


4C 

11h  inches  (46  units) 
14  feet  (672  units) 
(0,0)  (46,672) 


Cutting  widths: 
length: 


1,2,  and  3  inches 
9  inches  + 


Defect  coordinates:  1, 

2. 
3, 


Optimum  cutting  widths  and  sequence: 
Saw  kerf  coordinates: 
Area  recovered: 
Area  of  board: 
Percent  recovery: 


3,  1 ,  3,  and  3  inches 
1  ,  14,  19,  32,  45,  and  46 
19,404  sq.  units 
30,912  sq.  units 
62.77  percent 


(0,127)  (46,222) 
(29,259)  (38,265) 

(0,262)  (19,370) 
(33,386)  (41,396) 
(35,463)  (46,475) 

(0,519)  (46,556) 
(27,620)  (31,625) 


Figure  1. — Diagrammatic  sketch  of  a  grade  4  Common  1-  by  12-inch  board,  with  associated  program 
output  data,  illustrates  the  program  developed  for  selective  cut-up  evaluation.     Shaded  areas 
represent  defects  that  have  been  located  by  X-Y  coordinates  and  blocked  out.     Lined  areas  rep- 
resent additional  material  lost  in  cutting  out  defects. 


Using  the  Program 

Boards  of  different  species,  sizes,  and  grades 
could  be  sampled  and  the  program  used  to  eval- 
uate the  following: 

1.  Area  recovered  using  alternative  rip  combi- 
nations. 

2.  Efficiency  (in  percent  recovery)  obtained 
from  alternative  widths  of  boards,  for  speci- 
fied rip  widths. 

3.  Effects  of  grade  on  rip  recovery,  for  given 
species  and  specified  rip  widths. 

4.  Effects  of  adding  or  deleting  rip  widths  from 
the  array  now  used. 

5.  Alternative  costs  of  input  stock  of  various 
species,  grades,  and  widths,  based  on  pre- 
dicted potential. 

The  program  can  undoubtedly  be  used  to  evalu- 
ate many  other  situations. 

Program  CUTUP 

Program  CUTUP  is  a  set  of  three  main  pro- 
grams —  PERMU,  CONST,  and  RECVRY.  Pro- 
gram PERMU  prepares  a  table  of  all  possible 
cutting  combinations  for  the  N  cutting  widths 
(with  M  saw  blades)  to  be  considered  for  a 
given  board-width  class.  User-selected  cutting 
combinations  are  input  to  program  RECVRY, 
which  fits  the  cuts  to  individual  boards  to  ob- 
tain maximum  recovery  area.  Program  CONST 
has  one  subroutine,  XOUT,  which  outlines  or 


"x's  out"  the  defective  areas  of  a  board  by  re- 
lating defect,  X,  Y  coordinates  to  computer  core 
storage  locations.  The  program  prepares  an  in- 
put file  of  nonrecoverable  board-defect  areas, 
by  specified  cutting  widths,  for  use  in  the 
RECVRY  program.  For  boards  7.5  inches  and 
wider,  CONST  requires  considerable  computer 
time.  If  narrower  widths  are  to  be  processed, 
programs  CONST  and  RECVRY  may  be  run 
together  as  one  program,  with  the  output  from 
CONST  used  directly  as  input  to  RECVRY.  This 
eliminates  the  necessity  of  saving  CONST  out- 
put (Tape)  for  further  processing  by  program 
RECVRY. 

The  board-defect  data  cards  which  are  input 
to  program  CONST  should  be  edited  and  error 
checked  before  use.  If  a  large  amount  of  data  is 
to  be  processed,  the  data  should  be  tape  filed 
for  ease  of  handling.  A  sample  edit  and  card-to- 
tape  program  is  included  with  the  program  list- 
ings in  appendix  2. 

The  basic  content  and  purpose  of  each  pro- 
gram and  subroutine  is  described  in  the  sections 
that  follow.  The  order  and  format  of  input  con- 
trol cards  for  each  program  are  also  specified. 
Variable  names  are  defined  in  the  source  listings 
for  each  program.  A  sample  output  of  an  appli- 
cation of  program  CUTUP  is  shown  in  appendix 
1,  which  also  further  explains  the  overall  pro- 
gram operation. 

Program  PERMU,  CONST,  and  RECVRY 
were  originally  written  in  the  BASIC  program- 
ing language  for  use  on  a  time-sharing  computer 
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system.  The  programs  were  modified,  expanded, 
and  rewritten  in  FORTRAN  extended  for  use  on 
a  Control  Data  Corp.  6400  computer,4  and  have 
been  tested  on  the  CDC  6400  computer  system 
at  the  Colorado  State  University  Computing 
Center. 

Program  PERMU 

This  program  produces  a  table  of  possible 
cutting  combinations  for  a  specified  board  width, 
cutting  or  ripping  widths,  and  cutting  positions 
(kerfs).  The  computational  procedure  is  based 
upon  the  principle  that  if  one  event  A  can  take 
place  in  m  ways,  and  a  second  event  B  can 
take  place  in  n  independent  ways,  then  the 
number  of  ways  in  which  both  events  can  take 
place  is  mn.  This  principle  can  be  extended  to 
any  number  of  independent  events.  The  proce- 
dure was  applied  to  the  problem  of  cutting 
boards  into  different  widths  where  each  saw 
kerf  is  an  event  which  can  happen  in  m  posi- 
tions of  the  saw  blade  over  a  board.  By  expand- 
ing this  technique,  all  combinations  previously 
derived  for  narrower  cutting  widths  and  fewer 
cutting  blades  are  saved  for  possible  application 
in  dealing  with  wider  cutting  widths  and  more 
cutting  blades. 

The  procedure  was  used  to  process  data  in- 
volving three  cutting  widths  of  four,  eight,  and 
twelve  1/4-inch  units  (Q.I.U.),  and  five  kerfs  or 
cutting  positions.  Sample  board  widths  ranged 
from  14  to  46  Q.I.U.  To  accommodate  additional 
cutting  widths  and/or  cutting  positions,  test 
parameters  and  array  dimensions  would  need 
to  be  changed,  as  specified  by  the  analysis 
problem. 


Program 

Control  Card  Type  1.      FORMAT  (315) 

Column 

1-5 

IBWDT 

Overall  board   width   in  1/4-inch 

units  (Q.I.U.) 

6-10 

NSIZE 

Number  of  different  cutting  sizes 

or  rip  widths  to  consider,  MAX  =  5 

1  1-15 

NSWBL 

Number   of   machine   saw  blades 

available,  MAX  =  6. 

Program 

Control  Car 

d  Type  2.      FORMAT  (515) 

Column 

1-  5 

KUT(l) 

Size  of  cutting  width   1,  in  Q.I.U. 

6-10 

KUT(2) 

Size  of  cutting  width  2,  in  Q.I.U. 

TTie  use  of  trade  and  company  names  is  for  the 
benefit  of  the  reader;  such  use  does  not  constitute  an 
official  endorsement  or  approval  of  any  service  or  prod- 
uct by  the  U.  S.  Department  of  Agriculture  to  the 
exclusion  of  others  that  may  be  suitable. 


11-15  KUT(3)  Size  of  cutting  width  3,  in  Q.I.U. 
16-20  KUT(4)  Size  of  cutting  width  4,  in  Q.I.U. 
21-25      KUT(5)       Size  of  cutting  width  5,  in  Q.I.U. 

Program  CONST 

This  program  constructs,  in  computer  core 
storage,  a  board  of  variable  width  and  length 
dimensions,  and  positions  the  location  of  defects 
in  the  board  according  to  their  coordinates. 
Board  and  defect  coordinates  are  expressed  in 
Q.I.U.  to  the  X,  Y  coordinate  system. 

The  amount  of  core  storage  available  in  the 
computer  determines  the  size  of  boards  which 
can  be  analyzed  by  this  program.  The  array 
LWB(I,J),  Length  and  Width  of  Board,  is  dimen- 
sioned according  to  the  length  (J)  and  width 
(I)  of  the  largest  boards  to  be  analyzed  in  Q.I. 
U.  If  the  largest  boards  to  be  processed  are  11.5 
inches  by  16  feet,  the  array  LWB(I,J)  would  be 
dimensioned  I  =46,  J  =  768,  resulting  in  35,328 
computer  core  locations  to  store  all  possible 
locations  of  defects. 

Input  data  are  contained  in  the  set  of  cards 
which  specify  the  board  and  defect  coordinate 
values  for  one  board  (described  in  Character- 
izing Boards  and  Defects).  The  defects  are 
positioned  in  LWB  according  to  increasing  de- 
fect coordinates  in  the  J,  or  length,  dimension 
ofLWB(I,J). 

If  a  large  amount  of  data  is  to  be  processed, 
and  is  arranged  or  sorted  by  some  criteria  such 
as  increasing  board  numbers  within  a  board- 
width  class,  an  option  is  provided  to  analyze  a 
selected  sub-set  from  the  complete  file.  This 
option  is  exercised  by  two  control  parameters 
labeled  NBSTR  and  NBEND,  where  NBSTR  is 
the  number  of  the  first  board  in  the  sub-set 
and  NBEND  is  the  number  of  the  last  board  in 
the  sub-set  to  be  processed. 

A  user  input  parameter  labeled  LBTD  is  a 
test  variable  used  for  setting  a  minimum  accept- 
able length  between  defects.  If  an  area  between 
two  defects  (or  between  a  defect  and  the  end  or 
start  of  a  board)  is  less  than  LBTD  (in  Q.I.U.), 
the  area  is  blocked  out  and  treated  as  a  defect 
area  in  the  final  scan  of  the  board  to  locate  all 
defect  areas. 

For  each  input  board,  program  CONST  op- 
erates in  the  following  manner: 

1.  The  board  ID  or  Header  Card  is  read,  set- 
ting the  variables  NGRD,  (board  grade  class), 
NBRD  (board  number),  and  NDEF  (number 
of  defects  in  board). 

2.  A  board  coordinate  card  is  read  defining  the 
X-dimension  (Width)  as  the  ordinate  and 
the  Y-dimension  (Length)  the  abscissa  of 
the  board  to  be  processed.  This  notation  is 
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reversed  from  the  normal  X,  Y  notation  be- 
cause of  computer  core  storage  procedure. 
3.  A  set  of  defect  coordinate  cards  is  read  until 
an  END-OF-BOARD  data  card  is  encountered 
(IDXS=999). 

The  coordinates  for  each  defect  are  posi- 
tioned in  an  array  by  a  pointer  according  to 
their  order  of  occurrence  within  the  board. 
Using  the  minimum  length  between  defects  test 
(LBTD),  the  defect  array  is  scanned  to  find 
areas  between  defects  which  are  less  than 
LBTD.  Defect  location  variables  NX,  LDS,  and 
LDE  are  determined  and  passed  to  subroutine 
XOUT,  along  with  the  board  array  LWB,  by  the 
use  of  a  COMMON  statement.  Subroutine  XOUT 
then  blocks  out  or  "x's-out"  the  defined  area  of 
the  defect  in  the  board.  This  process  continues 
until  all  defect  areas  have  been  positioned  in 
the  LWB  array. 

Indexes  are  now  determined  for  a  scan  of 
the  board  to  accumulate  total  defect  area  for 
NSIZE  desired  cuttings  over  a  range  of  possible 
starting  cut  positions  determined  by  board  width. 
The  total  defect  area  for  the  board  is  written  to 
an  output  file  (Disk  or  Tape)  for  input  to  pro- 
gram RECVRY.  The  next  board  ID  or  Header 
Card  is  read  and  the  process  is  repeated  until 
an  end-of-file  is  encountered  in  the  board  input 
data. 

Program  Control  Card.       FORMAT  (315) 
Column 

1-  5       LBTD  Minimum  length  between  defects 

limitation  (Q.I.U.) 
6-10       NBSTR        Board  number  to  start  analysis 
11-15       NBEND      Board  number  to  end  analysis 
Board  Defect  Data  Card  Deck 

NDEF  +  two  cards  for  each  board  to  be  processed 
plus  an  END-OF-BOARD  Card. 

Program  RECVRY 

This  program  computes  the  nondefective 
areas  in  a  board,  and  simulates  a  number  of 
possible  cuttings,  limited  by  the  width  of  the 
board  and  the  combinations  of  cutting  sizes  de- 
sired, to  determine  the  best  combination  to  use 
for  maximum  recovery. 

Input  for  the  program  is  the  board-defect 
area  file  (Tape  or  Disk)  from  program  CONST, 
and  a  user-selected  set  of  cutting  combinations 
generated  by  program  PERMU  to  be  evaluated. 
The  cutting  combinations  are  input  to  the  pro- 
gram in  a  DATA  statement,  array  KPCT.  The 
coding  order  is  explained  in  the  program  listing. 

The  program  reads  a  title  card  and  an  input 
parameter  control  card.  The  parameter  LPRM 


is  the  lower  limit  of  combined  cuttings  to  be 
evaluated  from  the  combination  sets  in  array 
KPCT.  Only  combined  cuttings  greater  than 
LPRM  are  used  to  evaluate  the  best  fit,  thus 
eliminating  cutting  combinations  which  do  not 
use  the  entire  width  of  the  board.  The  variable 
NSIZE  and  the  array  KUT  are  set  from  values 
coded  in  DATA  KSZE. 

The  board  ID  and  board  coordinates  are 
read  from  the  input  file,  along  with  board  de- 
fect areas.  Areas  of  nondefect  are  computed 
from  defect  area  and  area  of  the  board,  and 
saved.  Indexes  are  set  for  selecting  cutting  com- 
binations from  array  KPCT  to  obtain  maximum 
recovery  for  the  board.  The  number  of  saw 
kerfs  which  can  be  placed  within  the  bounds  of 
the  board  is  determined.  A  saw  kerf  may  be 
adjacent  to  the  lower  or  upper  edges  of  a 
board,  or  it  may  lie  within  the  board  itself. 
There  is  no  provision  in  this  program  for 
straightening  the  edges  and  ends  of  the  board 
to  assure  a  straight  board.  A  warped  board  may 
be  utilized,  however,  by  crosscutting  into  shorter 
lengths  or  ripping  into  narrow  widths,  by 
assigning  appropriate  defect  coordinates.  The 
sum  of  the  cutting  widths  and  saw  kerfs  cannot 
exceed  the  board  width  plus  one  unit. 

A  total  recovery  area  is  computed  from  the 
nondefective  area  data  for  a  selected  combina- 
tion of  cuttings.  This  value  is  stored  as  the 
"best"  until  a  larger  recovery  area  is  obtained 
from  a  different  combination  of  cuts,  which  then 
replaces  it  as  the  "best."  After  all  acceptable 
combinations  have  been  evaluated  for  best  fit, 
the  individual  board  recovery  summary  is 
printed  out.  Totals  are  accumulated  for  total 
recovery  output  by  board  grade  and  size  class 
until  an  end-of-file  is  encountered  in  the  input 
data  file. 

Program  Control  Card  Type  1.       FORMAT  (4A10) 
Column 

1-40      TITLE  Short  title  to  identify  data  being 

processed. 

Program  Control  Card  Type  2.       FORMAT  (415) 
Column 

1-  5       LBTD  Minimum  length  between  defects 

control:    same  value  as  in  CONST. 
6-10      LPRM         Lower  limit  of  combined  cuttings 
control:  used  to  select  combinations 
of  cutting  sizes. 
11-15       NBSTR        Board  number  to  start  analysis  for 

recoverable  area. 
16-20      NBEND      Board  number  to  end  analysis  for 
recoverable  area. 
Board  numbers  (NBRD)  to  be  included  in  the  analysis 
should  be  >  NBSTR  and  <  NBEND. 
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Appendix  1:   Sample  Output  From  Programs 


The  sample  output  following  is  a  set  of 
computer  printout  pages  obtained  from  running 
the  PERMU  and  CONST/RECVRY  programs. 
The  board  input  data  consisted  of  a  set  of  10 
boards  from  the  14  Q.I.U.  (3.5-inch)  board  width 
class.  Five  boards,  numbered  291-295,  were  grade 

3  Common  with  a  length  of  768  Q.I.U.  (16  feet), 
and  five  boards,  numbered  301-305,  were  grade 

4  Common  with  a  length  of  576  Q.I.U.  (12  feet). 
The  minimum  acceptable  length  between  de- 
fects was  set  at  36  Q.I.U.  (9  inches).  Only  those 
cutting  combinations  which  resulted  in  a  total 
cut  (width)  greater  than  8  Q.I.U.  and  less  than 
WlTqual  to  14  Q.I.U.  (total  board  width)  were 
evaluated.  Cutting  combinations  evaluated  in- 
cluded (numbers  in  Q.I.U.),  (4,  8),  (8,  4),  (12). 
The  only  other  possible  combination  (4,  4,  4) 
was  excluded  to  decrease  the  number  of  1-inch- 
wide  cuttings. 

PERMU  Output 

The  first  line  is  a  summary  of  the  input 
values  assigned  to  the  program  control  para- 
meters IBWDT,  NSIZE,  NSWBL,  and  the  array 
KUT. 


IBWDT 

46  Q.I.U. 

Maximum  width  of  sample  boards, 

1  1 .5-inches 

NSIZE 

3 

Number  of  cutting  sizes  to  consider 

NSWBL 

4 

Number  of  machine  saw  blades 

available 

KUT(l) 

4  Q.I.U. 

Consider  a  1-inch  cutting 

KUTi2) 

8  Q.I.U. 

Consider  a  2-inch  cutting 

KUT(3) 

12  Q.I.U. 

Consider  a  3-inch  cutting 

KUT(4) 

0 

Not  used  this  run 

KUT(5) 

0 

Not  used  this  run 

The  total  number  of  possible  combinations 
for  three  sizes  and  four  blades  is  the  computed 
value  120.  Only  those  combinations  which  can 
be  made  using  four  positions  within  the  limits 
of  the  board  are  printed  out  for  user  considera- 
tion. 

Column  1  of  the  output  table  is  a  combina- 
tion (COMBO)  number  used  to  reference  the 
cutting  combination.  Columns  2-7  contain 
cutting  combinations.  The  number  6  is  used  to 
fill  out  the  table,  and  has  no  significance  as  far 
as  combinations  are  concerned.  The  numbers  1, 
2,  and  3  in  the  table  are  referenced  to  the 
cutting  sizes  stored  in  array  KUT  so  that  1  =  4, 
2  =  8,  and  3  =  12  Q.I.U.  The  number  in  column 
8  is  the  total  units  cut  for  the  given  cutting 
combination  and  is  used  as  a  test  limit  in  pro- 
gram RECVRY.  The  table  output  is  ordered  by 
increasing  values  in  column  8. 
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CONST  Output 

The  first  line  is  a  statement  of  the  input 
values  assigned  to  the  program  control  param- 
eters LBTD  =  36,  NBSTR  =  291,  and  NBEND  = 
305.  The  next  10  lines  are  the  input  data  for  the 
first  board,  followed  by  the  computed  defect 
area  for  three  cutting  sizes  for  that  board.  Com- 
plete output  for  all  the  test  boards  is  printed 
out  for  the  sample  run.  When  a  large  number 
of  boards  is  to  be  evaluated,  complete  output, 
for  only  the  first  board  in  the  input  set  is 
printed  to  reduce  the  number  of  output  pages 
required.  The  remaining  boards  in  the  input  set 
are  indicated  only  by  their  ID,  which  contains 
the  grade  class,  board  number,  number  of  de- 
fects in  the  board,  and  the  overall  coordinates 
of  the  board.  The  last  line  is  a  statement  indi- 
cating the  run  was  successfully  completed,  and 
gives  the  total  number  of  boards  processed. 


MIN.  LENGTH  BETWEEN  DEFECTS  CONTROL  FOR 
THIS  RUN   IS       36       291  -  305 
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6  156 

1 1  165 

.  1  320 

14  328 

.1  491 

14  498 

0  517 

3  576 

1 

260 

592 

1  296 

2 

260 

592 

1296 

3 

260 

592 

1  296 

4 

60 

120 

0 

5 

60 

240 

0 

6 

36 

192 

0 

7 

36 

192 

0 

8 

36 

0 

0 

9 

96 

0 

0 

10 

96 

0 

0 

11 

96 

0 

0 

12 

0 

0 

0 

13 

0 

0 

0 

14 

0 

0 

0 

END-OF-RUN.  TOTAL  BOARDS  PROCESSED  =  10 
RECVRY  Output 

The  first  line  is  a  short  title  to  describe  the 
type  of  boards  processed  by  the  program,  and  a 
summary  of  input  values  assigned  to  the  pro- 
gram control  parameters  LBTD  =  36,  LPRM  = 
8,  NBSTR  =  291,  and  NBEND  =  305.  Output 
consists  of  percent  recovery  for  each  individual 
board,  percent  total  recovery  for  all  boards,  per- 
cent total  recovery  for  grade  3  Common  boards, 
percent  total  recovery  for  grade  4  Common 
boards,  and  a  summary  of  the  number  of  times 
each  available  cutting  combination  was  selected 
for  the  individual  boards. 

Output  for  the  first  board,  number  291,  shows 
that  combination  number  5  generated  the  "best" 
recovery  area.  From  the  PERMU  output  sample, 
combination  number  5  is  a  (2,  1)  cutting  or  an 
8  and  4  Q.I.U.  cut.  Next  is  a  set  of  six  numbers 
which  position  the  saw  kerfs  for  combination 
number  5.  The  first  saw  kerf  is  located  at  unit 
0  of  the  board.  Units  1  through  8  are  used  for 
the  first  cut  (8  Q.I.U. ).  The  second  saw  kerf  is 
located  at  unit  9.  Units  10,  11,  12,  and  13  are 
used  for  the  second  cut  (4  Q.I.U.)  and  the  third 
saw  kerf  is  located  at  unit  14.  A  saw  kerf  loca- 
tion of  zero  indicates  a  position  adjacent  to  the 
bottom  edge  of  the  board.  If  the  saw  kerfs  and 
cutting  widths  do  not  account  for  all  available 
units  in  the  board  as  shown  by  boards  292,  295, 
and  302,  two  adjacent  saw  kerfs  of  one  unit 
each  are  indicated,  and  only  the  upper  saw  kerf 
location  is  printed.  The  total  clear  area  recovered 
is  8,004  Q.I.U.,  the  total  area  of  the  board  is 
10,752  Q.I.U.  (14  x  768),  and  the  percent  recovery 
for  the  board  is  74,442  (8,004/10,752  x  100).  This 
format  is  repeated  for  each  board  in  the  input 
file. 

TEST  4-INCH  10  BRDS  M IN  LGT=36  11/27/72 
36         8     291  305 

BOARD  NBR  =  291 
COMBO  NBR  =  5 

0       9     14     15  16  17 

AREA  RECOVERED  =  8004 

AREA   OF     BOARD  =  10752 

PRCNT  RECOVERY  =  74.4420 

BOARD  NBR  =  292 
COMBO  NBR  =  5 
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0     10     15      16  17  18 

AREA  RECOVERED  =  8492 

AREA  OF     BOARD  =  10752 

PRC NT  RECOVERY  =  78.9807 


TOTAL  AREA  REC0VERED-3C  =  41804 
TOTAL  AREA  OF  B0ARDS-3C  =  53760 
PCNT  RECOVERY   B0ARDS-3C  =  77.7604 


BOARD  NBR  =  293 
COMBO  NBR  =  5 

0       9     14     15  16  17 

AREA  RECOVERED  =  8532 

AREA  OF     BOARD  =  10752 

PRCNT  RECOVERY  =  79.3527 

BOARD  NBR  =  294 
COMBO  NBR  =  5 

0       9     14     15  16  17 

AREA  RECOVERED  =  8280 

AREA  OF     BOARD  =  10752 

PRCNT  RECOVERY  =  77.0089 

BOARD  NBR  =  295 
COMBO  NBR   =  5 

0     10     15     16  17  18 

AREA  RECOVERED  =  8496 

AREA  OF     BCARD  =  10752 

PRCNT  RECOVERY  =  79.0179 

BOARD  NBR  =  301 
COMBO   NBR   =  7 

0        5     14     15  16  17 

AREA  RECOVERED  =  5860 

AREA  OF     BOARD  =  8064 

PRCNT  RECOVERY  =  72.6687 


TOTAL  AREA  REC0VERED-4C  =  29224 
TOTAL  AREA  OF  B0ARDS-4C  =  40320 
PCNT  RECOVERY  B0ARDS-4C  =  72.4802 


PRCNT  RECOVERY  PER  CUTTING  SIZE  B0ARDS-3C 

26.68899       51.07143         0.00000  0.00000 

PRCNT  RECOVERY  PER  CUTTING  SIZE  B0ARDS-4C 

24.88095       47. 59921         0.00000  0.00000 


COMBO  NBR 
5 
7 


NBR  TIMES  USED 
5 
5 


END  OF  RUN.    BOARDS     291  - 


305  PROCESSED 


An  example  of  the  System  and  Program  Con- 
trol Cards  for  running  program  CONST/ 
RECVRY  which  generated  the  sample  output 
follows: 


BOARD  NBR  =  302 
COMBO  NBR   =  7 

0       6     15     16  17  18 

AREA  RECOVERED  =  5112 

AREA  OF     BOARD  =  8064 

PRCNT  RECOVERY  =  63.3929 

BOARD  NBR  =  303 
COMBO  NBR   =  7 

0        5      14      15  16  17 

AREA  RECOVERED^  =  5884 

AREA   OF      BOARD  =  8064 

PRCNT  RECOVERY  =  72.9663 

BOARD  NBR  =  304 
COMBO  NBR   =  7 

0        5      14      15  16  17 

AREA  RECOVERED  =  5908 

AREA   OF     BOARD   =  8064 

PRCNT  RECOVERY  =  73.2639 


BOARD  NBR  =  305 
COMBO  NBR   =  7 

0       5     14     15  16  17 

AREA  RECOVERED  =  6460 

AREA  OF     BOARD  =  8064 

PRCNT  RECOVERY  =  80.1091 


TOTAL  AREA  RECOVERED  =  71028 
TOTAL  AREA  OF  BOARDS  =  94080 
PRCNT  TOTAL  RECOVERY  =  75.4974 


JLIMITS,  CM55000,  T30,  PR30.  ACOUNT  NBR.,  NAME. 
FTN. 

REQUEST,  TAPE7,  DOOOO,  01.  CONST  OUPUT  (DISK) 
LGO. 

REWIND  (TAPE7.LGO)  RECVRY  INPUT  (DISK) 

RFL(43000) 

FTN. 

LGO. 

7/8/9 

CONST  Source  Deck. 
7/8/9 

CONST  Program  Control  Card  (LBTD,NBSTR,NBEND). 
Board  Defect  Data  Cards  (NDEF+3  Cards/Board). 
7/8/9 

RECVRY  Source  Deck. 
7/8/9 

RECVRY  Program  Control  Card  Type  1  (TITLE). 

RECVRY  Program  Control  Card  Type  2  (LBTD,  LPRM, 

NBSTR,  NBEND). 
6/7/8/9  END-OF-JOB  Card. 

If  Programs  CONST  and  RECVRY  are  to  be  run  as  two 
separate  programs,  request  TAPE7  to  be  a  magnetic 
tape  output  file  from  CONST  and  specify  it  as  a  tape 
input  file  to  Program  RECVRY. 
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Appendix  2:  Source  Listings  for  Programs 


Program  PERMU 

PROGRAM  PERMU 
1 ( INPUT , OUTPUT ,TAPE5= INPUT  »TAPE6=0UTPUT , TAPE  1 ) 

C 

C  CONVERSION  OF  PROG  NAME  Jl   (BASIC)   TO  FORTRAN.   THIS  PROGRAM  CONSTRUCTS 
C  THE  PERMUTATIONt  COMBINATION  TABLE  FOR  NSIZEINBR  OF  BRD  HDTH  SIZES) 
C  AND  NSWBL ( NBR  OF  MACHINE  SAW  BLADES).    INITIAL   INPUT   IS  TAKEN  FROM  TWO 
C  CARDS.   OUTPUT   IS   A  PRINT  LISTING  AND   IF  DESIRED  A  TAPE  FILE! TAPE  1 ) . 
C  D.   MARKSTROM     10/72     RMFRES  BJE 
C 

C — INPUT  CARD  1  (315) 

C  I BWDT=  BOARD  WIDTH     14,30,46  UNITS 

C  NSIZE=NBR  OF  DIFFERENT  SIZES  TO  CONSIDER.  MAX=5 

C  NSWBL=NBR  OF  SAW  BLADES  FOR  YOUR  MACHINE.  MAX=6 

C — I NPUT  CARD  2  (515) 

C  KUT(I)=SIZES   FOR  NSIZE  SIZES  ON  CARD   1.  MAX=5 

C 

C — PROGRAM  VARIABLE  NAMES 

C  P(I , J)=PERMUTATION  ARRAY  FOR  6  SAW  BLADES,    5  CUTTING  WIDTHS 

C  C(I)=COMBINATION  ARRAY  FOR  6  SAW  BLADES,    5  CUTTING  WIDTHS 

C  LSUM=TOTAL  NBR  OF  DIFFERENT  CUT  COMBINATIONS   IN  ARRAY  C(KK) 

C  NSWB=SAW  BLADE  NBR.,   1  TO  NSWBL+1 

C  NCHB=COMBI NAT  I  ON   (COMBO)   NBR.,    1  TO   1023.    (FOR   3  SIZES, 5  BLADES) 

C  KERF= ACCUMULATOR  FOR   1/4-INCH  SAW  KERFS 

C  MWDH= ACCUMULATOR  FOR  CUTTING  WIDTHS   IN  1/4-INCH  UNITS 

C 

INTEGER  PIT, 1023) tC(10) 
DIMENSION  KUTI10) 
REWIND  1 

C 

C— INITIALIZE   ARRAYS  AND  VARIABLES 
DO  5  1=1,10 
CI  I )=0 
KUT 1 1 ) =0 
5  CONTINUE 
00  8  Nl=l,7 
DO  7  N2=l,1023 
PIN1,N2)=0 

7  CONTINUE 

8  CONTINUE 
LSUM=0 

C 

C — READ  AND  PRINT  OUT   INPUT  CARDS   1   AND  2.   WRITE  TAPE  FILE   1   ID  RECORD 

READ(5,100)    IBWDT, NSIZE, NSWBL 
100  F0RMATI5I5) 

KK=NSWBL  +  I 

DO  15  N1=1,KK 

DO  10  N2=l,1023 

P(N1,N2)=6 
10  CONTINUE 
15  CONTINUE 

READ(5,100)    IKUTI I ), 1=1,5) 

WRITE (6, 102)    IBWDT, NSIZE, NSWBL, (KUT I  I ), 1  =  1,5) 

102  F0RMATI1H1,3I5,5X,5I5,/1 

WRITE (1,103)    NSIZE, (KUT ( I ), 1=1,5) 

103  F0RMATI6I5) 

C 

C — DETERMINE  COMBINATIONS  FOR  NSIZE  CUTS  ANO  KK  SAW  BLADES 
K=0 

C(2)=NSIZE 
LSUM=LSUM  +  NSIZE 
1=0 

DO  20  K=2,KK 
I=K  ♦  1 

C ( I  ) =NS I Z E**K  ♦  C( 1-1 ) 
LSUM=LSUM  +  NSIZE**K 
20  CONTINUE 

C 

NCUT=C ( 1-1) 
WRITE(6,104)  NCUT 

104  FORMAT ( 1H   ,*NBR  OF  DIFFERENT  CUT   COMBINATIONS  =*I6,/> 

C 

C — FILL  ARRAY  P  FOR  NSIZE  CUTS  AND  KK   SAW  BLADES 
N=l 
1=0 

Cll)=l 

DO  50  NSWB=1,KK 

K=C(NSWB) 

I=NSWB  -  1 

IFII.EQ.O)  KZ=1 

IFII.EQ.O)  GO  TO  25 

KZ=NSIZE**I 

K=K  ♦  1 
25  KCZ=K  ♦  KZ 

DO  30  NCMB=K,KCZ 

IFINCMB.GT.1023)  GO  To  35 

P  INSWB,NCMB)=N 
30  CONTINUE 
35  N=N  *  1 

K=K  ♦  KZ 

IFIN.GT. NSIZE)   GO  TO  40 

IFIK.GE.LSUM)   GO  TO  45 

GO  TO  25 
40  N=l 

GO  TO  25 
45  N=l 
50  CONTINUE 

C 

C — COMBINE  CUT  WIDTH  AND  SAW  KERF  SELECTIONS  AND  DETERMINE  MIN  BOARD 


C — WIDTH  FROM  WHICH  CUT  CAN  BE  MADE 

KERF=0 
MWDH=0 

00  75  NCMB=1,1023 

00  55  NSWB=1,KK 

L=P(NSWB,NCMB) 

IFIL.EQ.6)   GO  TO  60 

MWOH=MWDH  ♦  KUT I L ) 

KERF=KERF  ♦  1 
55  CONTINUE 

GO  TO  70 
60   MSUM=MWOH  +  KERF 

IFIMSUM.LE. IBWDT)   GO  TO  65 

P(7,NCMB)=99 

GO  TO  70 
65  P(7,NCMB)=MWDH 
70  KERF=0 

MWDH=0 
75  CONTINUE 

C 

C — PRINT  OUT  PERM-COMB  TABLE,   ARRAY  P,    OF  POSSIBLE  CUTS  FROM  A  BOARD 
C — 4  UNITS(l-INCH)   TO   IBWDT  UNITS  WIDE. 
KTMP=0 

DO  85  N=4, IBWDT 

DO  80  NCMB=l,1023 

IFIP(7,NCMB) .NE.N)    GO  TO  80 

MWDH=P(7,NCMB) 

KTMP=P(6,NCMB) 

IF(KTMP.NE.O)   GO  TO  78 

KTMP=6 

78  WRITE(6,106)   NCMB , I P( I , NCMB ) , I = 1 , 5 ) , KTMP , MWDH 
106  FORMAT ( 1H  ,815) 

WRITE (1,1 08)   NCMB, I  PI I.NCMB), 1  =  1 , 5 ) , KTMP , MWDH 
108  F0RMATI8I5) 

80  CONTINUE 

85  CONTINUE 

C 

ENDFILE  1 
REWIND  1 
CALL  EXIT 
END 
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Program  CONST 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c- 
c 
c 
c 
c 
c 
c 

c- 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c- 
c- 
c- 
c 


PROGRAM  CONST 
1 ( INPUT, OUTPUT, TAPE5= INPUT, TAPE6= OUTPUT, TAPE7) 

CONVERSION  OF   PROG  NAME  CONST   (BASIC)    TO  FORTRAN.   THIS  PROGRAM  INPUTS 
INITIAL   X,Y  DEFECT  COORDI NATES  I  FROM     CARDS)   AND  OUTPUTS  MODIFIED  X,Y 
COOROINATESION  FILE  7)    USING  A  MIN  LENGTH  BETWEEN  DEFECTS  LIMITATION 
WHICH  IS  CARD   INPUTIVAR.   LBTD).   THE  MODIFIED  X,Y  FOR  DEFECTS   IS  INPUT 
TO  PROG  RECVRY  WHICH  SELECTS   THE  CUT  COMBO  FOR  EACH   INDIVIDUAL  BRD. 
D.   MARKS TROM     10/72     RMFRES     BJE     MDDF.  07/72 

-INPUT  CONTROL  CARD  (315) 

LBTD=MIN.   LENGTH  BETWEEN  DEFECTS  CONTROL   VARIABLE   (IM  UNITS) 
NBSTR=NBR  OF   THE   BRD  TO  START  ANALYSIS     EXP.  201 
NBEND=NBR  OF  THE   BRD  TO  END  ANALYSIS         EXP.  299 

-DATA  CAROS.    BRD   IDENT.,    BRD  COORD. ,    DEF  COORD.,    END  OF   BRD  INPUT. 

-BOARD  IDENTIFICATION  CARD.   ONE/BOARD   (  5X , I2,24X,I5,32X,I4) 
NGRD=BO ARD  GRADE  CODE 
NBRD=BOARD  NUMBER 

NDEF=NUMBER  OF  DEFECTS   IN  BOARD 
-BOARD  COORDINATE  CARD.   ONE/BOARD   ( 13, IX, 13, 5X, 13, IX, 13) 
IBXS=BOARD  X-DIR(WIDTH)   START   COORD.  IBXS=0 
I BYS=BOARD  Y-DI R ( LNGTH )    START  COORD.  IBYS=0 
IBXE=BOARD  X-DIR(WIDTH)   END       COORD.    IBXE=14,30,   OR  46 

END       COORD.    IBYE=576,672,   OR  768 
NDEF/ BOARD   (13, IX, 13, 5X, 13, IX, 13) 
IDXS  GE  IBXS 


IDYS  GE  IBYS 
COORD.  IDXE  LE  IBXE 
COORD.   IDYE  LE   I  BYE 


I 8YE=B0ARD  Y-DIR(LNGTH) 
DEFECT  COORDINATE  CARD(S). 

I DXS=DEFECT  X-DIR(WIDTH)    START  COORD 
I DYS=DEFECT  Y-DI R ( LNGTH)    START  COORD 
I DXE=DEFECT   X-DIR1WIDTH)  END 
I DYE=DEFECT   Y-D I R ( LNGTH )  END 
END  OF   BOARD  DATA  CARD.   ONE/ BOARD  ( 13, IX, 13, 5X, 13, IX, 13) 
IDXS=999 
IDYS=0 
IDXE=0 
IDYE=0 

— A   SET  OF  DATA  CARDS   FOR  ONE  BOARD  WILL  CONTAIN  NOEF+3  CARDS 


-PROGRAM  VARIABLE  NAMES 

T(I ,44)=TABLE   OF  START  AND  END  DEFECT   COORD.   FOR  A  BRD.  I=IBXE 
DFCT(3)=ACCUMULAT0R  FOR  DEFECT  AREA  FOR   3  CUTTINGS,    4-8-12  UNITS. 
P(I)=POINTER  WHICH  POSITIONS  DEFECT  COORD.    IN  TABLE  T.  I=IBXE 
KUT ( 3 ) =THREE  CUTTING  SIZES.      SET  BY  PROG  STATEMENTS. 
LWB(I,768)=BRD  DIMENSION  ARRAY  FOR   COMPUTER  SIMULATION  OF  ALL 

DEFECTS   IN  A  BRD.  I=IBXE 
MIND(I)=MIN  DEFECT  COORD.  FOR  LWB  SCAN  OF  DEFECT  AREA.  I=IBXE 
MAXD(I)=MAX  DEFECT  COORD.   FOR  LWB  SCAN  OF  DEFECT  AREA.  I=IBXE 
LDS=LENGTH  DEFECT   START  COORD.   VALUE,   USED  TO  X-OUT  DEFECT   IN  LWB 
LDE=LENGTH  DEFECT   END       COORD.   VALUE,   USED  TO  X-OUT  DEFECT  IN  LWB 
NX=WIDTH  DEFECT  COORD.   VALUE,  USED  TO  X-OUT  DEFECT   IN  LWB 

THE  I  DIMENSION  IS  SET  BY  THE  USER  AND  IS  DETERMINED  BY  THE  WIDTH 
•SIZE  OF  BOARDS  TO  BE  PROCESSED.  THIS  HELPS  TO  REDUCE  CORE  STORAGE 
REQUIREMENTS  AND  RUN  COSTS. 

INTEGER  T(14,44),DFCT(3J,P<14) 
DIMENSION  KUT(3) 

COMMON  LWB (14, 768) .HINDI 14),MAXD( 14) , L DS , LDE , NBRD , NX 
REWIND  7 

C— INITIALIZE   ARRAYS.   SET  THE  UPPER  LIMIT  OF  THE   I    INDEX  TO  IBXE. 

KFRST=0 

KOUNT=0 

KUT( 1 )=3 

KUT(2)=7 

KUT(3)=11 

DFCT(1)=0 

DFCT(2)=0 

DFCT(3)=0 

DO  2  1=1,14 

DO  2  J=l,768 
2  LWB(I,J)=0 

DO  4  1=1,14 

DO  4  J=l,44 
4  T(I,J)=0 

DO  6  1=1,14 
6  PCI )=2 

C — READ  INPUT  CONTROL  CARD 

READI5.100)  LBTD,NBSTR,NBEND 

100  F0RMAT13I5) 

WRITE(6,101)  LBTD.NBSTR.NBEND 

101  FORMAT! 1H1,5X,*MIN.   LENGTH  BETWEEN  DEFECTS  CONTROL  FOR  THIS  RUN  IS 
1  *I4,2X,I4,*  -  *,I4,/I 

C 

10  DO  8  1=1,14 
MIND ( I ) =900 
8  MAXD ( I  1=0 
C — READ  BOARD  ID  CARD 

12  READ(5,102)  NGRD, NBRD, NDEF 

102  F0RMAT(5X,I2,24X,I5,32X,I4) 
IF(E0F(5>)  90,15 

15  IFINBRD.LT. NBSTR)   GO  TO  87 
I F ( NBRD.GT .NBEND )   GO  TO  90 
WRITE(6,104)    NGRD, NBRD, NDEF 
104  FORMAT) 1H0 , 1  3 , 1 X , I  3 , 5X ,  13  ) 
C — READ  BOARD  COORD.  CARD 

READ(5,106)    IBXS, IBYS, IBXE, IBYE 

106  F0RMAT(I3,1X,I3,5X,I3,1X,I3) 
C--WRITE  FILE  7  FOR  RECVRY  INPUT 

WRITE(7)    NGRD, NBRD, NDEF 
WRITEI7)    IBXS, IBYS, IBXE, IBYE 
WRITEI6.107)   IBXS, IBYS, IBXE, IBYE 

107  FORMAT ( 1H   ,  I  3  , 1 X  ,  I  3 , 5X , I  3 , 1 X , I  3 ) 


C  —  SET   BRD  Y-DI R  START   COORD.   =   1  IBYS 
IBYS=1 

C — READ  BOARD  DEFECT  COORD.  CARD(S) 
20  READ(5,106)    I DXS , I D YS , I DX E , I  DYE 
IFUDXS.EQ.999)   GO  TO  35 
C  IF(KFRST.NE.O)    GO  TO  22 

WRITE(6,107)    IDXS, IDYS, IDXE, IOYE 
22   LDSMDYS  +  1 
LDE  =  I  DYE 

IF(IDXE.LE.IBXE)   GO  TO  25 
IOXE=IBXE 
25  KK= I DXE  -  1 

IFdDXS. EQ.O. AND. KK. EQ.O)   GO  TO  32 
C — STORE  DEFECT   COORD.    IN  ARRAY  T   AND  SIMULATE  DEFECT  IN  ARRAY  LWB 
DO  30  I=1DXS,KK 
N=I  +  1 
K=P(N) 

T(N,K+1)=IDYS 
T(N,K+2)=IDYE 
P(N)=P(N)  +  2 
NX=N 

CALL  XOUT 
30  CONTINUE 
GO  TO  20 

C 

32  K=P(1) 

T(1,K«-1)  =  IDYS 
T(1,K*2J=IDYE 
P(1)=P(11   ♦  2 

NX=1 

CALL  XOUT 
GO  TO  20 

C 

C— DETERMINE    IF   MIN  LENGTH  BETWEEN  DEFECTS  EXISTS.    IF  NO,   BLOCK  OUT 
C — (X-OUT)    CLEAR   AREA  BETWEEN  DEFECTS   IN  ARRAY  LWB. 
35  CONTINUE 

KEND=IBXE 

DO  50  N= 1 , KE ND 

K=P(N) 

P(N)=P(N)  ♦  1 
T(N,K«-1)  =  IBYE 
T(N,K*2)=IBYE 
KK=P (N) 

DO  45  M=3,KK,2 

IF(T(N,M)   -  T(N.M-l) .EQ.O)  GO  TO  45 
IF(T(N,M)   -  T(N,M-l).LT.LBTD)   GO  TO  40 
IF(T(N,H) . EO.IBYE)  GO  TO  45 
GO  TO  45 
40  LDS=T(N,M-1)  +  1 
LDE=T ( N, M*l ) 
NX=N 

CALL  XOUT 
45  CONTINUE 

P(N)=2 
50  CONTINUE 

C 

C —  SET  INDEXS  FOR  BOARD  SCAN  TO  FIND  DEFECT  AREAS 
DO  85  N=1,KEND 
KK=0 
IS=N 

DO  80  K=3,5 
I=K  -  KK 
KK=KK  ♦  2 
IE=N  ♦  KUTII ) 
LIMIT=1BXE  -  KUT(I) 
IFIN.GT. LIMIT )   GO  TO  80 


C- 


-FIND  MIN-MAX  DEFECT  COORD.  FOR  BOARD  SCAN.   IF  MAXD(M)=0,  NO  DEFECTS 
-FOR  RANGE  OF  SCAN. 

DO  54  H-ISiIE 

IFIMAXD(M).EQ.O)   GO  TO  54 

GO  TO  56 
54  CONTINUE 

GO  TO  80 
56  I BYS=MI ND (IS) 

IBYE=MAXD( IS) 

DO  60  M=IS,IE 

IFIMIND(M).LT.IBYS)    I BYS=MIND( H ) 
IFIMAXD(M).GT.IBYE)    I BYE=MAXD( M ) 
60  CONTINUE 

-MAKE  X,Y  SCAN  OF  BOARD  ARRAY  LWB  TO  FIND  DEFECT  AREA.   IF  DEFECT  FOUND 
-ACCUMULATE  DEFECT  AREA  IN  DFCT(I). 
NCLRY=0 

DO  75  J=IBYS,IBYE 
DO  65  M=IS,IE 

IF(LWB(M,J).EO.NBRD)   GO  TO  68 
65  CONTINUE 

NCLRY=NCLRY  +  1 
GO  TO  75 

-TEST  FOR  MIN  DISTANCE  BETWEEN  DEFECTS  IN  LENGTH!  Y )  DIRECTION 
68  I F I NCLRY .EQ.O)  GO  TO  70 
IF(NCLRY.GE.LBTD)  NCLRY=0 
IF(NCLRY.GE.LBTD)   GO  TO  70 
MULT=KUT(I)  ♦  1 
I ADD=NCLRY  *  MULT 
DFCT(I)=DFCT(I)  ♦  I  ADD 
NCLRY=0 


70  DFCT( I l  =  DFCT<  I  ) 
75  CONTINUE 
80  CONTINUE 
P(l)=2 


♦  KUT (I  I   ♦  1 
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C--LIST  DEFECT  AREAS  FOR  FIRST  BOARD  AND  WRITE  FILE  7  FOR  ALL  BOARDS 
C — FOR  RECVRY  INPUT.      BRANCH  AND  DO  NEXT  BOARD. 
C  IF(KFRST.NE.O)   GO  TO  82 

WRITE (6, 108)   N,DFCT{ I ) , DFCT ( 2 ) , DFCT ( 3 ) 
108  FORMAT  ( 1H   ,  I  <, ,  3  (  2 X  ,  I  5  )  ) 
82  WRITEI7)  DFCT(1),DFCT(2),DFCT(3) 
DFCT ( 1 ) =0 
DFCT(2)=0 
DFCT(3)=0 
85  CONTINUE 

KOUNT=KOUNT  +  1 

KFRST=1 

GO  TO  10 

C 

87  KRECS=NDEF  ♦  2 

DO  88  NSKP=1,KRECS 

RE  AD  1 5, 106)    IDUM1,IDUM2,IDUM3»  IDUM4 

88  CONTINUE 
GO  TO  12 

C 

90  WRITE(6,110)  KOUNT 
110  F0RMAT(1H0,5X,*EN0-0F-RUN.   TOTAL   BOARDS  PROCESSED  =*I4> 
ENDFILE  7 
REWIND  7 
END 

SUBROUTINE  XOUT 

C 

C  ROUTINE  GO  SUB  490  FROM  PROG  CONST  (BASIC) 

C  THIS  ROUTINE   SIMULATES  THE   BRD  DEFECT   AREAS   BY  STORING  THE  BRD  NUMBER 
C    (NBRD)    IN  ALL  X,Y  LOCATIONS   OF  A  DEFECT.    IT   IS  X-ING  OUT,   OR  BLOCKING 
C  OUT  THE   AREA  OF  DEFECT   AS   SPECIFIED  BY  THE   INDICATORS  NX.LDS,   AND  LOE. 
C  MAX   AND  MIN  DEFECT  LIMITS    IN  THE  Y  DIRECTION  ARE  ALSO  DETERMINED. 
C 

COMMON  LWB(14,768 ) , MIND! 14) , MAXD( 14 ) , LDS , LDE, NBRD , NX 
DO  10   I  =  LDS  t  LDE 
LWB(NX,I )=NBRD 
10  CONTINUE 

C 

IF(LDE.GT.MAXDINX) )  MAXD(NX)=LOE 
IF(LDS.LT.MIND(NX) )  MIND(NX)»LOS 
RETURN 
END 
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Program  RECVRY 


PROGRAM  RECVRY 
1 (INPUT, OUTPUT, TAPE5= INPUT, T APE6=OUTPUT , T APE7 ) 

CONVERSION  OF  PROG  NAME  GOOOl    (BASIC)   TO  FORTRAN.   THIS  PROGRAM  INPUTS 
THE   MODIFIED  X,Y  BOARD  COORDINATES   (DEFECT  AREA)   FROM  FILE  TAPE7 
GENERATED   IN  PROG  CONST   AND  OUTPUTS  THE  BEST  CUT  TO  MAXIMIZE  RECOVER- 
ABLE AREA  FOR   INDIVIDUAL   BOARDS.   THE  PERMU-COMBO  TABLE  TO  8E  USED  TO 
EVALUATE  SELECTED  BRD  SIZES    IS  CODED   IN  DATA  ARRAY  KPCT.    THESE  VALUES 
WILL  CHANGE  DEPENDING  ON  BRD  SIZE  AND  A  NEW  DATA  LIST  MUST  BE  INSERTED 
IN  SOURCE  DECK.      D.   MARKSTROM     10/72     RMFRES     BJE     MODF.  06/72 

-INPUT  CONTROL  CARD  TYPE  1  (4A10) 

TITLE( I ^IDENTIFICATION  CARD  FOR  RUN 

-INPUT  CONTROL  CARD  TYPE  2  (415) 

LBTD=MIN.   LENGTH  BETWEEN   DEFECTS,    SAME  AS   IN  PROG  CONST. 
LPRM=LOWER  LIMIT  OF   COMBINED  CUTTINGS  TO  BE  CONSIDERED  FROM  THE 
PERMU-COMBO  SETS    IN   ARRAY   KPCT.   CUTTINGS  GT  LP RM  ARE  USED 
TO  EVALUATE   BEST  FIT  UNTILL  A  STOP    INDICATOR,   999   IS  FOUND. 
NBSTR=NBR  OF  THE   BRD  TO  START  ANALYSIS     EXP.  201 
NBEND=NBR  OF   THE  BRD  TO  END  ANALYSIS         EXP.  299 

-PROGRAM  VARIABLE  NAMES. 


NSIZE 

KUT(I 

NGRD= 

NBRD= 

NDEF  = 

IBXS  = 

IBYS= 

IBXE 

I  BYE 

NCMB= 

KKS1  = 

KKS2  = 

KKS3  = 

KKS4 

KKS5 

KKS6= 

NTCUT 


=NBR  OF  CUTTING  SIZES   TO  CONSIDER     MAX  OF 
)=CUT  SIZES   IN  QTR  UNITS  FOR  NSIZE  CUTS 
BRD  GRADE  CODE 
BRD  NUMBER 

NBR  OF  DEFECTS    IN  BRD 
BRD  X-DIR(WIDTH)   START  COORD. 
BRD  Y-D I R ( LNGTH  )    START  COORD. 
8R0  X-DIR(WIDTH)    END  COORD. 
BRD  Y-D I R ( LNGTH )    END  COORD. 
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EXP. 


4,8,12,0,0 


IBXS=0 
IBYS=0 

IBXE=14,30,OR  46 
IBYE=576,672,0R  768 


COMBINATION(COMBO)  NUM8ER 

COMBO  CUT  SIZE   1         CODE   1=4,  2=8,  3=12  UNITS 

COMBO  CUT   SIZE   2         CODE   1=4,  2=8,  3=12  UNITS 

COMBO  CUT  SIZE  3         CODE   1=4,  2=8,  3=12  UNITS 

COMBO  CUT  SIZE  4         CODE   1=4,  2=8,  3=12  UNITS 

COMBO  CUT  SIZE  5         CODE  1=4,  2=8,  3=12  UNITS 

COMBO  CUT  SIZE  6         CODE   1=4,  2=8,  3=12  UNITS 
TOTAL  UNITS  CUT   FOR  COMBO  NCMBI SAWKERFS  NOT  INCLUDED) 


CLEAR ( I , J ) =WORK  ARRAY  TO  DETERMINE  CLEAR  AREA  OF  BOARD 
RGRSZt I , J)=ARRAY  TO  ACCUMULATE  RECOVERY  PER  BOARD  GRADE  AND  SIZE 
SCMBN ( I ) =ARRAY  OF  SELECTED  COMBO  NBRS 
IGRO ( I ) =TOT AL  AREA  RECOVERED  BY  GRADE 
JGRD ( I ) =TOT AL  AREA  OF   BOARDS  BY  GRADE 

INTEGER  CLEAR(6,50),RGRSZ(5,6),SCMBN( 130 ) , T I TLE ( 4 ) , P 1 , P2 , P3 , P4 , P5 , 
1P6.CN 

DIMENSION  KUT(9),IGRD(9) ,JGRD(9) ,KSZE(6) 
DIMENSION  KPCT ( 56 ) 

-DATA  LIST  STATEMENTS.  KPCT  IS  DEPENDENT  ON  SIZE  OF  BROS  EVALUATED. 
-INCLUDE  ONE   MORE  COMBO  SET   THEN  DESIRED  TO  TERMINATE   SEARCH  WITH 
-NCMB   (KPCT(IDXI)    SET  =  999.   KPCT   IS   FOR   IBXE=14  BOARD  WIDTH. 

DATA  KSZE/3,4,8, 12,0,0/ 

DATA  KPCT/1, 1,6, 6, 6, 6, 6, 4, 2, 2, 6, 6, 6, 6, 6, 8, 4, 1,1, 6, 6, 6, 6, 8, 3, 3, 6, 6, 
16,6,6,12,5,2,1,6,6,6,6,12,7,1,2,6,6,6,6, 12,999,1,1, 1,1,1,1,99/ 

-ZERO  OUT  ARRAYS   ANO  READ  CONTROL  CARDS   1   AND  2 

KA  =  0 

KSAR=0 

KSAB=0 

KSLT=1 

REWIND  7 

DO  2  1=1,6 

DO  2  J=l,50 
2  CLEAR! I , J)=0 

DO  4  1=1,5 

DO  4  J=l,6 
4  RGRSZ(I,J)=0 

DO  6  1=1,130 
6  SCMBN(I)=0 

DO  10  1=1,9 

KUT(I)=0 

IGRD ( I i=0 
10  JGRD(I)=0 

READ(5,100)  TITLE 
100  FORMAT ( 4A10 ) 

RE AD (5, 102)    LBTD,LPRM,NBSTR, NBEND 
102  F0RMATI4I5) 

WRITE (6, 104)  TITLE,L8TD,LPRM,NBSTR,NBEND 
104  FORMAT (1H1,9X,4A10,4I5,//) 

NSIZE=KSZE(1) 

DO  15  1=1,5 
15  KUT( I )=KSZE( 1+1) 

-READ  INPUT  GENERATED  BY  PROG  CONST.   ID,   BRD  COORD.,   DEFECT  AREAS 
20  IDX=1 

READ(7)  NGRD,NBRD,NDEF 

IF(E0F(7))  90,25 
25  RE AD ( 7 )    I BXS , I BYS , IBXE, I  BYE 

IF(NBRD.LT.NBSTR)   GO  TO  27 

IFINBRD.GT. NBEND)    GO  TO  90 

GO  TO  28 

27  KSLT=0 

28  M1=IBXE 

DO  30  J=1,M1 

READ (7)    CLEAR ( 1 , J ) , CLE AR ( 2 , J ) , CLE AR ( 3 , J  ) 


30  CONTINUE 

IF(KSLT.EQ.O)   GO  TO  80 

-USING  DEFECT   AREAS   FROM  PROG  CONST,    COMPUTE  CLEAR   AREAS  OF  BOARD 
DO  40   1=1, NSIZE 
MUL  T  =  KUT ( I )*IBYE 
Ml=( ( IBXE-KUTI I ) ) +1 ) 
DO  35  J=1,M1 

CLEAR ( I , J ) =MULT   -  CLEAR(I.J) 
35  CONTINUE 
40  CONTINUE 

GO  TO  50 

DO  45  J=1,IBXE 

WRITE (6,112)    J.CLEAR ( 1, J),CLEAR(2, J) .CLEAR (3, J) 
112  FORMAT ( 1H  ,418) 
45  CONTINUE 

-SELECT  A  CUTTING  COMBINATION  FROM   ARRAY  KPCT 
50  CONTINUE 
52  NCMB=KPCT(IDX) 
KKS1=KPCT ( IDX+1 ) 
KKS2=KPCT( IDX+2) 
KKS3=KPCT< IDX+3) 
KKS4=KPCT( IDX+4) 
KKS5=KPCT( IDX+5) 
KKS6=KPCT(IDX+6) 
NTCUT  =  KPCT(  IDX-i-7) 
IFtNTCUT.EQ.99)   GO  TO  75 
IDX=IDX*8 

IF(NTCUT.LE.LPRM)   GO  TO  52 
KX=IBXE  -  NTCUT 

-KX   IS  NBR  OF  SAW  KERF  CUTS  WITHIN  THE  BOARD  DIMENSIONS  IBXS-IBXE 
-EVALUATE   SELECTED  CUTTING  COMBINATION  FOR  MAX  CLEAR   AREA,   STORE    IN  KA 

DO  70  N=1,KX 

I1=(KUT!KKS1)   +  N  ♦  1) 

J1=I1  +  (KX-Nl 

KS=CLEAR(KKS1,N) 

DO  68  N1=I1,J1 

KS1=CLEAR(KKS2,N1)   ♦  KS 

I2=(KUT(KKS2)   ♦  Nl  ♦  1) 

J2=I2  ♦    (KX-(  (  Jl-ID+N)  ) 

DO  66  N2=I2,J2 

KS2=CLEAR(KKS3,N2)   +  KS1 

I3=(KUT(KKS3)   +  N2  +  1) 

J3=I3   ♦    (KX-(  (  J2-I2)  +  (  Jl-ID+N)  ) 

DO  64  N3=I3,J3 

KS3=CLEAR(KKS4,N3)   +  KS2 

I4=(KUT(KKS4)    +  N3  ♦  1 ) 

J4=I4  +   IKX-l (J3-I3)+( J2-I2)+( Jl-Ill+N) 1 
DO  62  N4=I4,J4 
KS4=CLEAR(KKS5,N4)   ♦  KS3 
I5=(KUT(KKS5)   +  N4  ♦  1) 

J5=I5  ♦   (KX-( ( J4-I4)+( J3-I3)+( J2-I2)*( Jl-Il )+N) ) 

DO  60  N5=I5,J5 

KS5=CLEAR(KKS6,N5)   ♦  KS4 

IFIKS5.GT.KA)  GO  TO  85 
58  KS5=0 
60  CONTINUE 
62  CONTINUE 
64  CONTINUE 
66  CONTINUE 
68  CONTINUE 
70  CONTINUE 

GO  TO  52 


C — OUTPUT   INDIVIDUAL   BOARD  RESULTS,   PCNT  RECOVERY  BY  BRD 
75   IF(KA.EQ.O)   GO  TO  80 

WRITE(6,116)  NBRD 
116  FORMAT ( 1H   ,9X,*B0ARD  NBR  =  *I4) 

WRITE(6,118)  CN 
118  FORMAT ( 1 H   ,9X,*C0MB0  NBR  =  *I4) 

WRITE(6,120)  P1,P2,P3,P4,P5,P6 
120  FORMAT ( 1 H  ,9X,6I4) 

WRITE(6,122)  KA 
122  FORMAT ( 1H   ,9X,*AREA  RECOVERED  =  *I6) 

KB  =  I BXE* I  BYE 

WRITEI6.124)  KB 
124  FORMAT ( 1H   ,9X,*AREA  OF     BOARD  =  *I6) 

AR=FLOAT ( KA ) 

AB=FLOAT ( KB ) 

PR=(AR/AB)   *  100. 

WRITEI6.126)  PR 
126  FORMAT ( 1H   ,9X,*PRCNT   RECOVERY  =*F8.4,/) 


P1  =  P1 
P2  =  P2 
P3  =  P3 
P4=P4 
P5  =  P5 
P6  =  P6 


C— ACCUMULATE   RESULTS   BY  GRADE   AND  CUTTING  SIZES 
SCMBN(CN)=SCMBN(CN)    ♦  1 
KSAB=KSAB  ♦  KB 
KSAR=KSAR  4-  KA 
IGRD(NGRO)=IGRD(NGRD)   >  KA 
JGRD(NGRO)=JGRD(NGRD)  ♦  KB 
RGRSZ(NGRD,L1)=RGRSZ(NGRD,L1) 
RGRSZ(NGRD,L2)=RGRSZ(NGRD,L2) 
RGRSZt NGRD,L3)=RGRSZ(NGRD,L3) 
RGRSZt NGRD,L4)=RGRSZ(NGRD,L4) 
RGRSZt NGRD,L5)=RGRSZ(NGRD,L5) 
RGRSZ(NGRD,L6)=RGRSZ(NGRD,L6) 


CLEAR(Ll.Pl) 
CLEAR ( L  2 , P2 ) 
CLEAR! L  3. P3 ) 
CLEAR(L4,P4) 
CLEAR(L5,P5) 
CLEAR(L6,P6) 
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80  KA  =  0 

KSLT»1 

DO  82  1=1,6 

00  82  J=l,50 
82  CLEAR  I  I f  J ) =0 

GO  TO  20 

85  CN=NCHB 
KA=KS5 


226  FORMAT ( 1H  , 9X , 1 5 , 1 OX , 1 5 ) 
144  CONTINUE 

C 

C — END  OF  RUN.   REWIND  TAPE7,   PRINT  MESSAGE,   CALL  EXIT 

C 

MRITE(6,228)   NBSTR, NBEND 
228  F0RMAT(1H0,9X,*END  OF  RUN.   B0ARDS*I5,»  -  *I5,*  PROCESSED*) 
REWIND  7 
CALL  EXIT 
END 


Pl=N  -  1 
P2=N1  - 
P3=N2  - 
P4=N3  - 
P5=N4  - 
P6=N5  - 
L1=KKS1 
L2=KKS2 
L3=KKS3 
L4=KKS4 
L5=KKS5 
L6=KKS6 
GO  TO  58 


C — OUTPUT  ALL  BOARD  RESULTS,   PCNT  RECOVERY  BY  GRADE,   BY  SIZE  WITHIN  GRD 
90  WRITE(6,200>  KSAR 
200  FORMAT! 1H0,9X,*T0TAL  AREA  RECOVERED  *  *I8) 

WRITEI6.202)  KSAB 
202  FORMAT ( 1H  ,9X,*T0TAL  AREA  OF  BOARDS  =  *I8) 

AR=FLOAT I KSAR) 

AB1 FLOAT (KSAB) 

PR=(AR/AB)   *  100. 

WRITEI6.204)  PR 
204  FORMAT ( 1H  ,9X,*PRCNT  TOTAL  RECOVERY  =  *F8.4,/) 

C 

WRITEI6.206)  IGRD(3) 
206  F0RMAT(1H0,9X,*T0TAL  AREA  REC0VERED-3C  =  *I8) 

WRITEI6.208)  JGRD(3) 
208  FORMAT ( 1H   ,9X,*T0TAL  AREA  OF  B0ARDS-3C  =  *I8) 

AR= FLOAT ( JGRD 1 3 ) ) 

AB3 FLOAT I IGRD! 3 ) ) 

IF(AR.EO.O.O)  PR=0.0 

IF(AR.EO.O.O)  GO  TO  92 

PR=(AB/AR>   *  100. 
92  WRITEI6.210)  PR 
210  FORMAT! 1H  ,9X,*PCNT  RECOVERY  B0ARDS-3C  =  *F8.4,/) 

C 

WRITEI6.212)  IGRDI4) 
212  FORMAT! 1H0,9X,*T0TAL  AREA  REC0VERED-4C  =  *I8) 

WRITEI6.214)   JGRD (4) 
214  FORMAT  1 1H   ,9X,*T0TAL  AREA  OF  B0ARDS-4C  =  *I8) 

AR= FLOAT IJGRDi  4 ) ) 

AB=FLOATI IGRDI 4  )  ) 

IF(AR.EO.O.O)  PR=0.0 

IF! AR.EQ.O.O)  GO  TO  94 

PR= 1 AB/AR )   *  100. 
94  WRI TE (6,216)  PR 
216  FORMAT ( 1H   ,9X,*PCNT  RECOVERY  B0ARDS-4C  =  *F8.4,/) 


WRITEI6.218) 

218  FORMAT! 1H0»9X»*PRCNT  RECOVERY  PER  CUTTING  SIZE 
IF ! JGRD ( 3 ) .EQ.O )   GO  TO  96 
AR=FLOAT( JGR0I3) I 
AB-FLOAT ( RGRSZ ! 3 , 1 ) ) 


B0ARDS-3C* ) 


PR1=!AB/AR)   *  100. 
AB=FLO AT I RGRSZ ! 3  ,  2 ) ) 
PR2=(AB/AR)   *  100. 
AB*FLOAT(RGRSZ(3,3)  ) 
PR3=!AB/AR)   *  100. 
AB=FL0AT(RGRSZI3,4) ) 
PR4=!AB/AR)    *  100. 
GO  TO  98 
96  PR1=0.0 
PR2=0.0 
PR3=0.0 
PR4=0.0 

98  WRITE(6,220)   PR1 , PR2 , PR3 , PR4 
220  FORMAT  1 1H  ,7X,4(2X,F9.5> ) 

WRITE16.222) 

222  FORMAT! 1H0, 9X» *PRCNT  RECOVERY  PER  CUTTING  SIZE     B0ARDS-4C* ) 

I F ( JGRD 1 4 ) . EQ.O )   GO  TO  140 

AR=FLOAT( JGRD! 4) ) 

AB«FL0AT!RGRSZ(4,1> ) 

PR1=«AB/AR)   *  100. 

AB*FL0ATIRGRSZ<4,2> ) 

PR2=(AB/AR>    *  100. 

AB*FL0AT(RGRSZ(4,3> ) 

PR3=!AB/ARI   *  100. 

AB*FL0AT!RGRSZ(4,4) ) 

PR4=IAB/AR)    *  100. 

GO  TO  142 
140  PR1=0.0 

PR2=0.0 

PR3=»0.0 

PR4=0.0 

142  WRITEI6.220)   PR1 , PR2 , PR3 , PR4 
WRITEI6.224) 

224  FORMAT! I  HO , 9X , *COMBO  NBR       NBR  TIMES  USED  *) 
DO  144  KC=1,130 
IF(SCMBN(KC> .EQ.O)   GO  TO  144 
WRITEI6.226)  KCSCMBN(KC) 
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Program  DEFEDIT 


Program  CTDFCT 


c- 


PROGRAM  DEFEDIT ( INPUT, OUTPUT, TAPE 5= INPUT, T AP E6=0U TP UT ) 

PROG   TO   EDIT   DATA   CARDS    FOR   CUTUP-RE P A I R-RECOV ER Y   STUDY  D.MARKSTROM 

DIMENSION   DLWI30) ,DLL( 30) , DUW( 30 ) , DUL ( 30 ) , I DH  (  8 ) 

READ(5,200)    I DH 
200   FORM AT ( 8  A 1 0 ) 

WRITE(6,1)    I DH 

1  FORMAT! 1H1,5X,8A10,/) 

— READ  AND  CHECK  HEADER  CARD. 

3   READ(5,10)    CLASS,   NUMBD, NDEF 

10  FORMAT! 5X.R3.22X, 16, 32X, 14 ) 
IF(E0F(5>)  100,9 

9   IFICLASS    . EQ.   3R  3C    .OR.    CLASS    . EQ .    3R   4C  )        GOTO  11 
GO  TO  14 

11  I F ( NDEF   .LT.    1)   GO  TO  14 
GO  TO  13 

14   WKITE(6,2)  NUMBD 

2  FORMAT(*0*,10X,*ERROR   IN  THE  FIRST  CARD  OF   BOARD  *,I4) 
-READ  BOARD  COORDINATE  CARD.   CHECK  LWR  COORD.   LT  UPR  COORD.. 

13  READ(5,20)    PLW, PLL , PUW, PUL 

20  FORMAT ( F3. 0, IX ,F3.0,5X,F 3.0, IX, F 3.0) 
IFIPLW   .GE.    PUW   .OR.   PLL    .GE.   PUL)   GO  TO  46 
I F ( PUW   . NE .    14. )G0  TO  21 

GO  TO  25 

21  IFIPUW   .NE.   30.1G0  TO  22 
GO  TO  25 

22  IFIPUW   . EQ.   46.JG0  TO  25 
GO  TO  46 

576. )G0  TO  40 


672. )G0  TO  41 


C- 


25    IFIPUL  .NE 
GO  TO  35 

40  IF(PUL  -NE 
GO  TO  35 

41  IFIPUL   . EQ.    768. ) GO  TO  35 

46  WRITEI6.47)    NUMBD, CLASS, PLW, PLL, PUW, PUL 

47  FORMAT! 1H0, 10X,*B0ARD  N8R.*I4,*  CLASS  *R3,*  HAS   AN  ERROR   IN  THE  BO 
1ARD  COORD.   CARD*,2(2X,F5.0,2X,F5.0)  ) 

-READ  DEFECT   COORDINATE  CARDIS). 

35  DO  36   1=1, NDEF 

READ  I  5,20)    DLH(I) ,DLL( I ) ,DUW I  I ) ,DUL ( I ) 

36  CONTINUE 

-CHECK  LWR  COORD.    LT   UPR  COORD.   AND  FOR  DEFECTS  OUTSIDE   BRD  COORD.. 
DO  60   1=1, NDEF 
IF(DLWII))  56,52,52 
52    IF(DLLII))  56,54,54 
54   IFIDLWI I ) .GT.PUW)    GO  TO  56 
IF ( DUWI I ) .GT.PUW)    GO  TO  56 
.GT.PUL)    GO  TO  56 
.GT.PUL)   GO  TO  56 
■GE.DUWI I ) )    GO  TO  56 
.GE.DUL ( I ) )    GO  TO  56 


IFIDLLli: 
IF ( DUL (  I 
IF  I  DLW( I 
IFIDLHI  1 
GO  TO  60 

56  WRITEI6.57)    I . NUMBD, DLW < I ) , DLL < I ) , DUW ( I ) , DUL ( I ) 

57  F0RMAT(lH0,10X,*DEFECT   CARD*I3,»   BUARD  NBR.*I4,*    IS   IN  ERROR* , 
12 I2X,F5.0,2X,F5.0  )  ) 

60  CONTINUE 
--CHECK  FOR  OVERLAP  OF  DEFECTS 

IFINDEF-l)  3,3,62 
62   J 1=NDEF  -  I 

DO  74  J=1,J1 

J2=J  +  1 

DO  74  K= J2 , NDEF 

IFIDULI J)-DLL(K) )  74,64,64 
64  IFIDLLI J)-DUL(K) )  66,66,74 
66  IFIDUWI J)-DLW(K) )  74,68,68 
68    IF  I DLW ( J ) -DUWI K ) )  70,70,74 

70  WRITE(6,72)    J , NUMBD , DLW (J ) , DLL (J ) , DUW I  J > , DUL < J ) 

72   F0RMAT(1H0,10X,*DEFECT   CARD*I3,*   BOARD  NBR.*I4,*  HAS  OVERLAP*, 

12(2X,F5.0,2X,F5.0  )  ) 
74  CONTINUE 
GO   TO  3 

100  CONTINUE 
CALL  EXIT 
END 


PROGRAM  CTDFCT 
1  I  I NPUT,0UTPUT,TAPE5=INPUT,TAPE6  =  0UTPUT,TAPE1 ) 

PROG  TO  WRITE   BOARD  DEFECT  DATA  CARDS  ON  TAPEIFILE   1)    FOR   INPUT  TO  PROG 
CONST.    A  DUMMY  RECORD , CONT A I NI NG  999,0,0,0, IS  WRITTEN  AS  AN  END-OF-BOARD 
INDICATOR.    INPUT    IS   A   SET   OF    DEFECT    CARDS   GROUPED   BY   BRD-WIDTH  CLASS 
SUCH   AS   ALL   4-INCH,    8-INCH,    OR   12-INCH  BROS. 
D.MARKSTROM     REPAIR  STUDY     02/71  BJE 

DIMENSION  LSTID18) 

C 

REWIND  1 
KDUMY=0 
KTR  EC=0 
KEND=0 
LAST=0 
NGRD=0 
NBRD=0 
NDEF=0 
I  XS  =  0 
I  YS  =  0 
IXE  =  0 
IYE  =  0 

C — READ   LIST   ID  CARD  TO   IDENTIFY  OUTPUT  (8A10) 

READ(5,100)  LSTID 
100  FORMAT(BAIO) 

WRITE(6,102)  LSTID 
102  FORMAT(1H1,5X,8A10) 


READ  BRD  DEFECT  CARDS   AND  OUTPUT  TO   TAPE1.   LIST  FOR  MASTER  RECORD. 

10  READI5.104)    NGRD, NBRD, NDEF 
104   F0RMAT(5X,I2,24X,I5,32X, 14) 

IF(E0F(5)1  900,15 
15  LAST=NBRD 

WRITE  1 1,1 06)    NGRD, NBRD, NDEF, KDUMY 
106  F0RMATI4I4) 

WR1 TE (6, 108 )    NGRD, NBRD, NDEF, KDUMY 
108  FORMAT(1HO,10X,4I5) 

KEND=NDEF  +  1 

DO  20  I=1,KEND 

READ(5,110)  IXS,IYS,IXE,IYE 
110  F0RMAT(I3,1X,I3,5X,I3,1X,I3) 

WRITE(1,106>    I XS , I YS , IXE , I YE 

WRITE(6,112)    IXS, IYS, IXE, IYE 
112   FORMAT  I 1H  ,10X,4I5) 
20  CONTINUE 

IXS=999 

IYS  =  0 

IXE  =  0 

I  YE  =  0 

WRITE(1,106)  IXS, IYS, IXE, IYE 
WRITE(6,112)    IXS, IYS, IXE, IYE 

I  XS  =  0 

KTREC=KTREC  +  KEND  +  2 
GO  TO  10 


END  OF  CARD   INPUT.   TERMINATE  RUN. 

900  ENDFILE  1 
REWIND  1 

WRITE(6,114)    LAST , KTREC 
114  F3RMAT(1H0,5X,*END-0F-RUN.    NBR  OF  LAST  BOARD  ON  FILE   =  *I4,*  TOTAL 
1   RECS  WRITTEN  ON  FILE  =*I5) 
CALL  EXIT 

END 
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